home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs46.d81
/
xmashits.sda
/
COLORS
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
380b
|
19 lines
2 IFFL=0THENFL=1:LOAD"H",8,1
7 IFFL=1THENFL=2:LOAD"C",8,1
8 IFFL=2THENFL=3:LOAD"D",8,1
10 KH=8*16
92 TR=4096+13*256+12*16+14
93 POKETR,3:POKETR+1,3:GOSUB1000
95 KH=8*16
1000 REM
1004 PRINT"[147][144]":POKE53281,8
1005 POKE53280,1
1010 P=12*4096+256:IN=P+156:CL=P+101:DE=P+167
1012 AR=P+128:CA=P+137:BR=P+217:CB=P+226
1099 SYSIN
1100 POKE CA,11*16+4 :SYS AR
1110 POKE CB,3:SYS BR
1111 POKE53265,PEEK(53265)OR16
1200 SYS4096+14*256+KH
2000 KH=2:GOTO1200